MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00975_Macro Temporisations.ls

Text File | 1995-08-06 | 1.2 KB | 78 lines

on WaitTicks0 Duree
  set Duree to Duree + the ticks
  repeat while the ticks < Duree
    Interrupt0()
  end repeat
end

on WaitDown
  repeat while the mouseDown
    Gest3Rupt()
  end repeat
end

on WaitUp
  global DcDemo
  if DcDemo then
    exit
  end if
  repeat while the mouseUp
    Gest3Rupt()
  end repeat
end

on WaitFinSon Piste
  if paramCount() = 0 then
    set Piste to 1
  end if
  repeat while soundBusy(Piste) = 1
    Gest3Rupt()
  end repeat
end

on waitfinsonmark Piste
  if paramCount() = 0 then
    set Piste to 1
  end if
  if soundBusy(Piste) then
    go(#loop)
  end if
end

on Gest3Rupt
  Interrupt0()
  Interrupt1()
  Interrupt2()
  updateStage()
end

on AnnuleJumpWait
  global listJumpWait
  set listJumpWait to list()
end

on SetJumpWait Duree, MacroJPwait
  global listJumpWait
  set listJumpWait to list(the ticks + Duree, MacroJPwait)
end

on JumpWait
  global listJumpWait, DcDemo
  if listJumpWait = [] then
    exit
  end if
  if the ticks < getAt(listJumpWait, 1) then
    exit
  end if
  if DcDemo then
    exit
  end if
  if the lastEvent < 120 then
    setAt(listJumpWait, 1, the ticks + 300)
    exit
  end if
  if CallM(getAt(listJumpWait, 2)) then
    AnnuleJumpWait()
  end if
end